BMUG PD-ROM 1995 Fall/PD-ROM F95.toast/Utilities/Text Utils/Alpha 5.81 ƒ/Tcl/SystemCode/appleEvents.tcl

Text File | 1994-06-15 | 478 b | 21 lines | [TEXT/ALFA]

# make alias list to pass to AEBuild
proc makeAlis {name} {
    concat {[alis(«} [coerce TEXT $name -x alis] {»)]}
}



# Queued replies are passed through AEPrint and then to this routine.
proc handleReply {rep} {
    global ALPHA lastReply
    switchTo $ALPHA
    set lastReply $rep
}


# Return an object record specifying the desired think project file.
proc fileObject {name} {
    join [concat {obj\{want:type('SFIL'), from:'null'(), form:'name', seld:“} [file tail $name] {”\}}] ""
}